home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / machack / Hacks97 / KlingonBGApp.sit / Klingon BG App / Source / SoundUtils.c < prev    next >
Text File  |  1997-06-28  |  4KB  |  190 lines
  1. // Source code for Klingon Clock.   Copyright (C) 1996-1997
  2. // Charles H. Hemstreet IV
  3. //
  4. // Started at MacHack 1996
  5. // Completed at MacHack 1997
  6. //
  7. // Best thanks to:
  8. // My wife Regie, son Chad and baby
  9. // Other thanks to Elden Wood and Bob Clark
  10. //
  11. // This code is distributed "as-is" and implies no warranty or guarantee.
  12.  
  13.  
  14. #ifndef __SOUNDUTILS__
  15. #include "SoundUtils.h"
  16. #endif
  17.  
  18.  
  19.  
  20. RoutineDescriptor ExternalCallBackRD = 
  21.         BUILD_ROUTINE_DESCRIPTOR(uppFilePlayCompletionProcInfo, ExternalCallBack);
  22.  
  23. pascal void ExternalCallBack (SndChannelPtr theChannel, SndCommand theCommand)
  24. {
  25.     long        thisA5; 
  26.     long        wasA5;
  27.     
  28.     if (theCommand.param1 == kSoundDone)
  29.     {
  30.         wasA5 = theCommand.param2;
  31.         thisA5 = SetA5(wasA5);
  32.         
  33.         externalPriority = 0;
  34.         
  35.         thisA5 = SetA5(thisA5);
  36.     }
  37. }
  38.  
  39.  
  40.  
  41. OSErr openSndChannel(void)
  42. {
  43.     OSErr    theErr;
  44.     
  45.  
  46.     #if USESROUTINEDESCRIPTORS
  47.         externalCallBackUPP = &ExternalCallBackRD;
  48.     #else
  49.         externalCallBackUPP = (SndCallBackUPP) &ExternalCallBack;
  50.     #endif
  51.  
  52.  
  53.     theErr = noErr;
  54.     
  55.     if (gChannelOpen)
  56.         return theErr;
  57.     
  58.     gSndChannel = 0L;
  59.     theErr = SndNewChannel(&gSndChannel, sampledSynth, initNoInterp + initMono, 
  60.                             (SndCallBackUPP)externalCallBackUPP);
  61.     if (theErr == noErr)
  62.         gChannelOpen = true;
  63.     
  64.     return theErr;
  65. } 
  66.  
  67. OSErr closeSndChannel(void)
  68. {
  69.     OSErr        theErr;
  70.     
  71.     theErr = noErr;
  72.     
  73.     if (!gChannelOpen)
  74.         return theErr;
  75.     
  76.     if (gSndChannel != 0L)
  77.         theErr = SndDisposeChannel(gSndChannel, false);
  78.     gSndChannel = 0L;
  79.     
  80.     if (theErr == noErr)
  81.         gChannelOpen = false;
  82.     
  83.     return theErr;
  84. } 
  85.  
  86.  
  87. OSErr playASound (short soundID, short priority)
  88. {
  89.     SndCommand    theCommand;
  90.     OSErr        theErr;
  91.     
  92.     assert(gSndChannel != nil);
  93.  
  94.     externalPriority = priority;
  95.     
  96.     theCommand.cmd = bufferCmd;
  97.     theCommand.param1 = 0;
  98.     theCommand.param2 = (long)(gTheSoundData[soundID]);
  99.     theErr = SndDoCommand(gSndChannel, &theCommand, false);
  100.     
  101.     return theErr;
  102. }
  103.  
  104.  
  105. void doPlayASound (short soundID, short priority)
  106. // Remember! Pass as soundID the sound-number-in-file, NOT the ID!
  107. {
  108.     assert(soundID >= 0);
  109.     assert(soundID < kNumberSounds);
  110.     assert(gChannelOpen != false);
  111.     if (priority >= externalPriority) 
  112.     {
  113.         playASound(soundID, priority);
  114.     }
  115. }
  116.  
  117.  
  118. Boolean SndChanDone(SndChannelPtr chan) 
  119. {
  120. /*
  121.     Same as SndDone, but you can pass any 'ol sound channel,
  122.     not just our private array of snd channels...
  123. */
  124.     OSErr err;
  125.     SCStatus status;
  126.  
  127.     // Poll the channel
  128.     err = SndChannelStatus(chan, sizeof(SCStatus), &status);
  129.     if (err == noErr)
  130.         // If the channel is busy, then the sound is NOT done,
  131.         // else the sound is done (and the channel is idle)...
  132.         return status.scChannelBusy;
  133.     else
  134.         return err; // Hmm. Error!
  135. } // END SndChanDone
  136.  
  137.  
  138. OSErr LoadBufferSounds (void)
  139. {
  140.     Handle        theSound;
  141.     long        soundDataSize;
  142.     OSErr        theErr;
  143.     short        i;
  144.     
  145.     theErr = noErr;
  146.     
  147.     for (i = 0; i < kNumberSounds; i++)
  148.     {
  149.         theSound = GetResource('snd ', i + kFirstSoundID);
  150.         if (theSound == 0L)
  151.             return ResError();
  152.         
  153.         HLock(theSound);
  154.         soundDataSize = GetHandleSize(theSound) - 20L;
  155.         HUnlock(theSound);
  156.         
  157.         gTheSoundData[i] = NewPtr(soundDataSize);
  158.         if (gTheSoundData[i] == 0L)
  159.             return ResError();
  160.         HLock(theSound);
  161.         BlockMove((Ptr)(*theSound + 20L), gTheSoundData[i], soundDataSize);
  162.         HUnlock(theSound);
  163.         ReleaseResource(theSound);
  164.     }
  165.     
  166.     return theErr;
  167. }
  168.  
  169.  
  170. void waitCloseChannel(void)
  171. {
  172.     EventRecord    myEvent;
  173.     Boolean    theResult;
  174.     Boolean    channelBusy;
  175.  
  176.     channelBusy = SndChanDone(gSndChannel);
  177.     while (channelBusy)
  178.     {
  179.         theResult = WaitNextEvent(everyEvent, &myEvent, kWaitSeconds, 0L);
  180.         switch (theResult)
  181.         {
  182.             default:
  183.             {
  184.                 channelBusy = SndChanDone(gSndChannel);
  185.             }
  186.         }
  187.     }
  188.     closeSndChannel();
  189. }
  190.